Presenting Data Visualizations Effectively
25 March, 2024
You already…
Please install and load the following packages
Access lecture slide from the course landing page
I am Ayush.
I am a researcher working at the intersection of data, law, development and economics.
I teach Data Science using R at Gokhale Institute of Politics and Economics
I am a RStudio (Posit) certified tidyverse Instructor.
I am a Researcher at Oxford Poverty and Human development Initiative (OPHI), at the University of Oxford.
Reach me
ayush.ap58@gmail.com
ayush.patel@gipe.ac.in
Before
After
Source : Twitter
rbi_ccs_data <- rbi_ccs_data |>
select(`Average Monthly Income`, `Perception on General Economic condition - compared to one year ago`) |>
filter(`Perception on General Economic condition - compared to one year ago` != "Remained The Same")
rbi_ccs_percent <- rbi_ccs_data %>%
group_by(`Average Monthly Income`, `Perception on General Economic condition - compared to one year ago`) %>%
summarise(Count = n()) %>%
mutate(Total = sum(Count), Percentage = Count / Total * 100)ggplot(rbi_ccs_percent, aes(x = `Average Monthly Income`, y = Percentage, fill = `Perception on General Economic condition - compared to one year ago`)) +
geom_bar(stat = "identity", position = "dodge") +
theme_minimal() +
labs(x = "Income Group", y = "Percentage", fill = "Perception") +
scale_fill_brewer(palette = "Pastel1") +# This changes the color scheme, optional
coord_flip()